#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;
use autodie;

open my $fh_r, '<', $ARGV[0];

while(<$fh_r>){
	if(/(\S+)\g{1}/){
		if(/fred.*wilma|wilma.*fred/){
			say;
		}
	}
}

